0 PRINT"[147]"CHR$(8)
10 IFA=.THENA=1:LOAD"UNPACKER",8,1
20 IFA=1THENA=2:LOAD"BOWL.SHP",8,1
50 POKE53280,.:POKE53281,.
60 BM=40960:CO=35840
70 POKE249,BM/256:REM   BITMAP MEMORY
80 POKE250,CO/256:REM   COLOR MEMORY
90 POKE251,0     :REM   LOW BYTE OF SHP
100 POKE252,64   :REM  HIGH BYTE OF SHP
110 POKE253,.:POKE254,.
120 SYS51456 :REM    UNPACK THAT SHAPE!
130 SYS51459 :REM    SHOW THAT SHAPE!
140 PRINT"L[207]"CHR$(34)"B"CHR$(34)",8"
150 PRINT"RUN"
157 POKE157,0:REM    NO MESSAGES
160 POKE631,13:POKE632,13:POKE157,128:POKE198,3:END